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PATCHES AND A UTILITY PROGRAM FOR LAB-8 


DECUS Program Library Write-up 


DECUS No. 8-309 


Patch for the Basic Averager to allow the high¬ 
speed punch to dump the ASCII values which are 
received after a T command in the first section. 


Instructions: 

1. LOAD and start the BASIC Averager as.usual. 

2. Stop it and load the first part of the patch. 

3. Restart the program at 6511. The response to the T 
command will now be punched on the high speed punch 
(instead of typed). 

4. When punching has stopped, read in the second part 

of the patch and restart at 6621. The program is now 
unchanged. 

5. If more than one average is to be punched, steps 2 
through 4 must be followed for each average. The 
reason for this is that after punching, all TTY 
output will be on the high speed paper punch. 

The program must be repatched to avoid this. 













Patch to change the nature of LAB-8 contingency inputs as they are 
used in the ADVANCED Averager. 


As used in the ADVANCED Averager, Version C, the contents of the 
contingency inputs are logically ANDed with the sort code. If the 
result of the AND procedure is equal to the sort code, then the 
contingency condition is satisfied. Two patches are available 
which alter the function of the contingency input. 


1) 

Change Location 

From 

To 


7412 

0172 

7000 


7414 

1151 

1172 

2) 

6747 

6331 

7604 


Patch 1 effects a direct comparison of the contingency inputs with 
the sort code. There must be one to one correspondence of the bits 
for the contingency condition to be satisfied. This facilitates 
the editing of bad sweeps. 

Patch 2 is useful if the LAB—8 does not have Option XR (contingency 
inputs). This allows the ADVANCED Averager to reference the front 
switches of the 8/1 or 8/L for its contingency reading rather than 
the standard contingency inputs of the AX/8. The contents of the 
switches can be directly compared or ANDed with the sort code 
depending on the use of Patch.1. 


Patch to omit the calibration mark in Section V display of the 

ADVANCED Averager 


Change location 


From 


To 


6662 


1321 


5274 












*L 

/PATCH TO L.AB-8 ADVANCED AVERAGER PROGRAM* VERSION C* SECTION 5 

/PATCH PROVIDES FOR PUNCHING-OF LEADER/TRAILER TAPE WHEN 
/PROGRAM OPTION "T" OF SECTION 5 IS UTILIZED* 

/ 


/NOTE 

/WITH 

/ 


WHEN OPTION 
THIS PATCH* 

LOCATION 

7225 

7226 

7227 
7230 
7300 
730! 

7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

7570 

7571 

7572 

7573 

7574 

7575 

7576 

7577 


”P" IS USED* THE WORD •’LIFT" IS NOT TYPED 
BUT IS REPLACED BY "t". 


CODE 

* 

INSTRUCTION 

4640 

typdun* 

JMS I CRLFX 

4627 


JMS I LPTCH! 

7570 

LPTCH1 * 

PTCHl 

3177 


DCA SFACTR 

4701 


JMS I LPTCH2 

7553 

LPTCH2* 

PTCH2 

0212 

LIFT* 

0212 /TYPE LINE FEED 

0336 


0336 /TYPE "»" 

0000 


0000 /MESSAGE TERMINATOR 

0000 

PTCH2* 

0000/ 

436! 


JMS LT 

7240 


CLA CMA 

1012 


TAD GETPNT 

2353 


ISZ PTCH2 

5 753 


JMP I PTCH2 

0000 

LT* 

0 /LEADER-TRAILER 

1376 


TAD KMLT/ SUBROUTINE 

3377 


DCA MLT 

4665 , 


JMS I TYPEZ 

2377 


ISZ MLT 

5364 


JMP *-2 

5761 


JMP I *jLT 

0000 

PTCH1* 

0 

436! 


JMS LT 

2370 


ISZ PTCHl 

7344 


MTW 

1 1 77 


TAD SFACTR 

5770 


JMP I PTCHl 

7700 

KMLT* 

7700 

0000 

MLT* 

0000 


* 
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T.AB-8 rc clock calibrator 


t 


This program continuously types out the RC clock rate in micro¬ 
seconds. Typing CARRIAGE RETURN will halt the program It can 
be used as a sub-routine or a stand-alone program. The algor 
is the same as that found in the BASIC Averager. The RC clock is 
set to the fast mode and the number of crystal clock beats pouring 
during 100 RC clock beats is equal to the RC clock rate in micro 

seconds. 

If slower clock rates are desired, the clock can be calibrated in 
the fast mode and then the additional 3-bit counting chain can be 
enabled for actual use. The resulting rate will be eight times 
slower than the calibrated speed. 


The program is loaded with the Binary Loader. 

200 . 


Starting address 
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*200 


0200 

7300 

CLA OLL 


0201 

6046 

TLS 


0 202 

4327 

I 'JIT, JMS CRLF 

/TYPE CR LF 

0203 

1344 

tad mo 

/SET LIME COUNTER 

0204 

3343 

DC A COUNT 


020 5 

3341 

LOOP, DCA ARITH1 

0206 

3342 

DCA ARITH2 

/CLEAR WORKIMG AREA 

0207 

6346 

6346 

/ZTEN OTEM 

0210 

6356 

6356 

/CLXK CLRK 

021 1 

7 32 6 

7326 

/MAKE AC 2 

0212 

6321. 

6321 

/SKXK 

0213 

5212 

JMP . -1 

/SNYC CLOCK 

0214 

6346 

6346 

/ZTEN OTEM SET AX08 

0215 

6352 

6352 

/CL XK 

0216 

134 6 

TAD Ml44 

/GET -100 OCTAL 

0217 

6354 

TLOOP, 6354 

/CLRK 

0220 

6321 

6321 

/SKS/XK 

0221 

5224 

JMP .+3 


0222 

6352 

63 52 

/CLXK 

0223 

2342 

I52 ARITH2 

/COUNT A XTAL TICK 

0224 

5226 

JMP .+2 


0225 

2341 

I 52 ARITH1 

/ACCOUNT FOR OVERFLO 

0226 

6341 

6341 

/SKRK 

0227 

5220 

JMP TLOOP+1 


0230 

7001 

I AC 

/COUNT AM RC TICK 

0231 

7440 

SZA 

/100 COUNTED YET 

0232 

5217 

JMP TLOOP 

/MO CONTINUE 

0233 

6346 

6346 

/YES, ZTEM OTEM 

0234 

3347 

TYPE, DCA TEMP 

/CLEAR DEFLATE COUNTER 

0235 

1337 

TAD RADII 

/GET LOCATION OF HI ORDER DEFLATOR 

0236 

333 5 

DCA RADI 


0237 

1340 

TAD RADI2 

/LOCATION OF LO ORDER DEFLATOR 

0240 

3336 

DCA RAD2 


0241 

7300 

AGAIN, CLA CLL. 

/CLEAR AC AND LINK 

0242 

1342 

TAD ARITH2 

/GET LO ORDER 

0243 

1736 

TAD I RAD2 

/DEFLATE 

0244 

3342 

DCA ARITH2 

/SAVE RESULTS 

0245 

7004 

RAL 

/NOTE DISPOSITION OF LINK 

0246 

1341 

TAD ARITH1 

/GET HI ORDER 

0247 

.1735 

TAD I RADI 

/DEFLATE 

0250 

7 510 

SPA 

/GONE TOO FAR? 

02 51 

5255 

JMP MEG 

/YES CORRECT DEFLATES 

0252 

2347 

152 TEMP 

/NO, NOTE DEFLATION AND GO ON 

02 53 

3341 

DCA ARITH1 

/SAVE HI ORDER 

0254 

5241 

JMP AGAIN 


0255 

3341 

NEG, DCA ARITH1 


0256 

1736 

TAD I RAD2 

/GST LO ORDER DEFLATOR 

0257 

7041 

CM A I AC 

/NEGATE IT 

0260 

7100 

CLL 


0261 

1342 

TAD ARITH2 

/ADD OVER DEFLATED LO ORDER 

0262 

3342 

DCA ARITH2 

/IT IS NOW RESTORED 

0263 

7004 

RAL 

/SAVE ANY CARRIES 


5 







I 


0264 

7041 

CM A I AC 

0265 

1735 

TAD I RADI 

0266 

7040 

CMA 

0267 

1341 

TAD ASITHI 

0270 

3341 

DCA ARITR1 

0271 

1347 

TAD TEMP 

0272 

1351 

TAD X260 

027 3 

432 1 

JMS TYPA 

0274 

3347 

DCA TEMP 

027 5 

233 5 

I32 RADI 

0276 

233 5 

ISZ RADI 

0277 

233 6 

152 RAD2 

0300 

2336 

IS2 RAD2 

0301 

1736 

TAD I RADS 

0302 

7 640 

SEA OLA 

0303 

5241 

JMP AGAIN 

0304 

13 50 

TAD K240 

030 5 

4321 

JMS TYPA 

0306 

6031 

X5F 

0307 

5316 

JMP ON 

0310 

6036 

KR3 

031 1 

134 5 

TAD M215 

0312 

7640 

SEA CLA 

0313 

5316 

JMP ON 

0314 

4327 

JMS CRLF 

0315 

7 402 

HLT 

0316 

2343 

ON, 1SZ COUM 

0317 

520 5 

JMP LOOP 

0320 

5202 

JMP INIT 

0321 

0000 

TYPA, 0 

0322 

6041 

TSF 

0323 

5322 

JMP .-1 

0324 

6046 

TLS 

0325 

7200 

CLA 

0326 

5721 

JMP I TYPA 

0327 

0000 

CRLF,0 

0330 

1371 

TAD K15 

0331 

432 1 

JMS TYPA 

0332 

1372 

TAD K212 

0333 

4321 

JMS TYPA 

0 334 

5727 

JMP I CRLF 

033 5 

0000 

RADI, 0 

0336 

0000 

RA.D2, 0 

0337 

0353 

RADII, RD1 

0340 

0354 

RADI2, RD2 

0341 

0000 

ARITH1, 0 

0342 

0000 

ABITH2, 0 

0343 

0000 

COUNT, 0 

0344 

7 770 

M10, -10 

034 5 

7 563 

M215, -215 

0346 

7634 

Ml 44, -144 

0347 

0000 

TEMP, 0 

0350 

0240 

K24Q, 240 

0351 

0260 

K260, 260 

0352 

0000 

FIRST, 0 


/NEGATE THE CARRY 
/GET HI ORDER DEFLATOR 
/FORM l*S COMPLEMENT OF IT 
/ADD HI ORDER 

/DOUBLE PRES ITI ON NUMBER RES 'iO 
/HOW MANY TIMES DID w'E DEFLATE 
/MAKE IT ASCII 
/TYPE IT 
/CLEAR TEMP 


/ARE WE DONE DEFLATING YET 

/NO. DEFLATE WITH NEXT RADIX 
/YES. TYPE SPACE 


/NOT A CR« IGNORE 
/CR. TYPE CR LF 

/SHOULD WE START ANOTHER LINE 
/NO THERE IS STILL ROOM 
/YES* THIS ONE IS FILLED UP 
/SUBROUTINE TO TYPE AC 


/MOVE RADIX POINTERS UP 


/ANY KEYBOARD COMMANDS? 
/NO 

/YES. READ IT 
/CHECK FOR CR 
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0353 

7747 

0354 

4540 

0355 

777 5 

0356 

4360 

0357 

777 7 

0360 

6030 

0361 

7777 

0362 

7634 

0363 

7777 

0364 

7766 

0365 

7777 

0366 

7777 

0367 

0000 

0370 

0000 

0371 

0215 

0372 

0212 

AGAIN 

0241 

ARITH1 

0341 

ARITH2 

0342 

COUNT 

0343 

CRLF 

0327 

FIRST 

0352 

I NIT 

0202 

K15 

0371 

K212 

0372 

K240 

0350 

K260 

0351 

LOO? 

0205 

MIC 

0344 

Ml 44 

0346 

M21 5 

0345 

N5G 

0255 

ON 

0316 

RADII 

0337 

RAD 12 

0340 

RADI 

0335 

RAD2 

0336 

RD1 

0353 

RD2 

0354 

TEMP 

0347 

FL O OP 

0217 

TYPA 

0321 

TYPE 

0234 


RD1, 7747 
RDP.j 4540 
7 77 5 
4360 
7777 
6030 
7777 
7634 
777 7 
7766 
7777 
7777 
0 
0 

Ml 5* 215 
K212, 212 


/-100*000 CHI ORDER) 
/LO ORDER 

/-10*000 CHI ORDER) 
/LO ORDER 
/HI ORDER 
/“1*000 CLO ORDER) 
/-100 CHI ORDER) 

/LO ORDER 
/-10 CHI ORDER) 

/LO ORDER 
/-I CHI ORDER) 

/LO ORDER 

/END OF LIST 
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ADVANCED AVERAGER SECTION III PATCH 


FOR HIGH/LOW SPEED PUNCH 
OF ACCUMULATED AVERAGES 
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Patch to allow Section III of the ADVANCED Averager to reside in core 
dump averaged data, and live to average again. 

This patch is in RIM format. It is loaded by the RIM loader into the 
area of core normally occupied by the BIN loader. It can be entered 
any number of times. 

To use: 


1 . 


2 . 


3. 



5. 


6 . 

7. 

8 . 


9. 


10 . 


11 . 


12 . 


13. 


14 . 


15. 


16. 


17. 


18. 


Run through Sections I and II as usual. 

Load Section III and press CONTINUE. 

Press STOP. 

Load patch in with RIM Loader 7756 in SR, LOAD ADDRESS, START. 
Press STOP. 

Restart Section III at location 6530 . 

Average as normal. 

When average is complete and dump is desired, hit CTRL/P. 
Program will halt. 

Set the number of the averages to be dumped in the SR. 

SR(11) for AVG#1 
SR(20) for AVG#2 

6 tc • • • 

(They will be dumped in order of numerical priority.) 

Press CONTINUE. 

Again the program halts. 

Turn on the low speed punch. 

Press CONTINUE. 

The dump will now proceed. 

Program halts at the end of the dump of one average.. 

Turn off punch. Add any spacer tape desired manually. 

Press START 
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19- Patch checks for more dumps. If found, it returns to the halt 
at instruction 12. Otherwise, it proceeds to the start of Section III 
and sets up for another average. 

NOTES ON FORMAT : 

The data is stored in core in double precision, lo-order first. Nega¬ 
tive values are in two's complement. 

The dump will be in Binary Format. Two rows of punched paper tape 
equal one 12-bit word (6 bits to a row). The first row is the left¬ 
most 6 bits, the second row is the right-most. 

The first two rows of dump are the number of the average that is being 
dumped. The next two rows contain minus the number of points. Next 
two rows contain the number of sweeps in the average. Following this is 
the data . The data represents the SUM of the sweeps. It must be 
divided by the number of sweeps to get the average. 

Dump is good for averages only. i.e. confidence limits or trend must 
not be present. 
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7600 

6002 

7 60 1 

6346 

7602 

7602 

7603 

3310 

7604 

7100 

760 5 

7604 

7606 

7010 

7607 

7430 

7610 

521 5 

7611 

2310 

7612 

7440 

7613 

5206 

7614 

5717 

7615 

331 1 

7616 

1310 

7617 

7 1 40 

7620 

3312 

7621 

1313 

7622 

1314 

7623 

2312 

7624 

5222 

7625 

3316 

7626 

1 7 1 6 

7627 

3307 

7630 

1315 

7631 

1316 

7632 

3316 

7633 

1716 

7634 

3010 

7635 

4240 

7 636 

131 1 

7637 

5206 

7640 

0000 

7641 

6046 

7642 

7602 

7643 

2310 

7644 

1 3 10 

7645 

4263 

7 646 

1307 

7 647 

4263 

7650 

1410 

7651 

4263 

7 652 

1307 

76 53 

7004 

7654 

3307 

7 655 

1410 

7656 

4263 

7657 

2307 

7660 

52 55 

7661 

7402 

7662 

5640 


MORE* 


SETUP* 


DUMP, 


LOOP, 


*7600 
I OF 


6346 

HLT CLA /PAUSE:SET SR AMD CLEAR AC 
DOA NUMB /SET COUNTER TO ZERO 

CLL 

LAS /READ THEM 

EAR /WHICH JOB? 

SZL /THIS ONE? 

JMP SETUP /YES 

ISZ NUMB /NO 

SZA /ARE THERE ANY MORE? 

JMP MORE /GO BACK RETRY 

JMP I START /NO MORE: RETURN TO AUGER 

DCA WHICH /SAVE AVG INDICATOR 

TAD NUMB 

CMA CLL 

DCA MNUM /IS COMP OF JOB 

TAD K223 

TAD K007 

ISZ MNUM 

JMP . -2 


DC A LOG /AC CQNT DAT LOG 
TAD 1 LOG /- POINTS 

DCA MPOINT 

TAD K002 /MOVE IN J LIST 

TAD LOC 
DC A LOC 
TAD I LOC 

DCA 10 /AUTO INDEX XR 
JMS DUMP 
TAD WHICH 
JMP MORE 


0 /DUMP ROUTINE 

TLS /Oil PC F: CLEAR TTY FLAG 


HLT CLA /TURN 
ISZ NUMB 
TAD NUMB 
JMS PUNCH 
TAD MPOINT 
JMS PUNCH 
TAD I 10 
JMS PUNCH 
TAD MPOINT 


ON PUNCH 

/MAKS NUMB = AVG BEING DUMPED 
/BRING IT TO THE AC 
/PUNCH IT OUT 

/- POINTS 

/NUMB OF SWEEPS 


HAL /PTS X 2= WORDS 

DC A MPOINT 


TAD I 10 


JMS PUNCH 
ISZ MPOINT 
JMP LOOP 


HLT /TURN OFF PUNCH 

JMP T DUMP 


/ 

/ 


n 








/ 


7663 

0000 

f (S S <4 

3306 

7 665 

1306 

7666 

7012 

7667 

7012 

7670 

7012 

7671 

030 5 

7 672 

6041 

7673 

5872 

7 674 

6046 

767 5 

7 300 

767 6 

1306 

7677 

030 5 

7700 

6041 

7 701 

5300 

7702 

6046 

7703 

7300 

7704 

5663 

7705 

0077 

7706 

0000 

7707 

0000 

7710 

0000 

7711 

0000 

7712 

0000 

7713 

0223 

7714 

0007 

7715 

0002 

7716 

0000 

7717 

6530 

6564 

7 600 


/ 

PUNCH* 


RTRJ 
i i T tl 


MASK# 

TEMP* 

MP 01 NT * 

NUMB* 

WHICH* 

MNUM* 

K223* 


0 /PUGH N JM IN ft C 

DC.A TEMP 
TAD TEMP 
RTRJ 


AND 

TSF 

MASK 

/PSF 

FOR 

HI 

SPEED 

PUNCH 

JMP 

TLS 

.-1 

/PLS 

FOR 

HI 

SPEED 

PUNCH 

CLA 

TAD 

AND 

TSF 

CLL 

TEMP 

MASK 

/PSF 

FOR 

HI 

SPEED 

PUNCH 

JMP 

TL3 

.-1 

/PLS 

FOR 

HI 

SPEED 

PUNCH 

(TLA 

CLL 






CMP I PUNCH 
0077 
0 
0 
0 
0 
0 

2.23 


K0Q7 * 007 
K002* 002 
LOG* 0 
START* 6530 
*6564 

7600 


DUMP 

7640 

K002 

7715 

KO0 7 

7 7 14 

K223 

7713 

LOG 

7716 

LOOP 

7655 

MASK 

7705 

MNUM 

7712 

MORE 

7606 

MPOINT 

7707 

NUMB 

7710 

PUNCH 

7663 

SETUP 

7615 

START 

7 7 17 

TEMP 

7706 

WHICH 

• 

7711 
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OVERLAY FOR SECTION 3 
OF DEC-LB-U17C-PB 

An overlay for Section 3 of DEC-LB-UI7C-PB (second section of U18B-PB), the LAB-8 
Averager Program is enclosed. The overlay allows the user to output information on an 

♦u i Too recorder wif * 1 ° uf 9° in 9 through the process of reading in Sections 4 and 5 of 
the LAB-8 Averager Program Tape. In contrast to Section 5 of the LAB-8 Averager Program 
Tape, the overlay Does Not : 

1. Include a routine for calibrating the X-Y Recorder ("Gain... ", "Bias... ", etc.). 

2. Offer a variable plotting rate. That is, the plot rate is a function of the clock rate; 
regardless of the distance between two successive points. 

3. Include a routine for drawing borders and axes (grids) on the X-Y Recorder paper. 

4. Inform the user when to lift and lower the pen on the recorder and consequently does 
LINEFEED fhe US6r With ° n ' ndlcation the com P ufer '* "waiting" for him to type 
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DEC-LB-U17C-D 


1. Abstract 

An overlay to Section 3 of DEC-LB-U17C-PB (second section of 
U18B-PB), the LAB-8 Averager Program, to run an XY Analog 


Recorder. 


2. Requirements 


XY recorder should be connected in parallel with the LAB 8 


oscilloscope. Analog output will vary between 0 and -10 volts. 

AX-08 
PDP-8/I 
Oscilloscope 

3. Loading 

With the online averaging program (U17B or U18B) in core and 
an average completed, turn the reader to "STOP" or "FREE" and 
position overlay binary tape (U19B-PB) in reader. Bit 0 of 
the switch register should be up to use the ASR-33, down to 
use the PC-81. Strike ^CTRL ^ P anfl turn reader to START. When 
tape stops, verify that accumulator lights show 0 (all off). 

(If they do not, reposition tape and press CONT on consoie.) 
Then, turn reader to "STOP" and press CONT. 

4. Usage 

1. Note the position of the RANGE switch of the TIMING CONTROL, 
and then set it full clockwise. 
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2. The program waits for the user to lift the pen and strike 

LINE FEED. • 

3. The pen is moved to the left margin and" the program waits for 
the user to lower the pen and strike LINE FEED. 

4. The first average is then plotted at a rate determined by the 
RANGE switch of the timing control. Adjust the coarse control 
until the desired plot rate is attained. 

5. When the average has been plotted, the program waits for the 
user to lift the pen and strike LINE FEED. 

6. The pen is then moved to the left margin and the program waits 
for the user to lower the pen and strike LINE FEED. 

7. This is repeated for each average to be plotted. 

8„ When all averages have been plotted, strike ^CTRL^ P. 

9. Reset the RANGE control to its position at the start of this 
program. 

10. Turn the reader to "START." 

11. The averaging program is then restored. When the tape stops, 
verify that accumulator shows 0. 

12. Turn the reader to "STOP"or "FREE." 

13. Press CONT on the console. 

•*-4. ^CTRL^R or^CTRL^Z will reinitialize for more averaging. 
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